home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00064_cursor (MouseMember).ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  1.1 KB  |  39 lines
  1. property upCursor, downCursor, comCursor
  2.  
  3. on new me
  4.   return me
  5. end
  6.  
  7. on getPropertyDescriptionList me
  8.   description = [:]
  9.   addProp(description, #upCursor, [#default: "none", #format: #string, #comment: "Rollover cursor:"])
  10.   addProp(description, #downCursor, [#default: "none", #format: #string, #comment: "mouseDown cursor:"])
  11.   addProp(description, #comCursor, [#default: "none", #format: #string, #comment: "commandDown cursor:"])
  12.   return description
  13. end
  14.  
  15. on prepareFrame me
  16.   if (the mouseMember = the member of sprite me.spriteNum) and (sprite(me.spriteNum).visible = 1) then
  17.     if the mouseDown then
  18.       cursor([the number of member downCursor, the number of member downCursor + 1])
  19.     else
  20.       if the commandDown then
  21.         if (comCursor <> "none") and not voidp(comCursor) then
  22.           cursor([the number of member comCursor, the number of member comCursor + 1])
  23.         end if
  24.       else
  25.         cursor([the number of member upCursor, the number of member upCursor + 1])
  26.       end if
  27.     end if
  28.   else
  29.   end if
  30. end
  31.  
  32. on mouseLeave me
  33.   cursor(-1)
  34. end
  35.  
  36. on endSprite me
  37.   cursor(-1)
  38. end
  39.